home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / ASDebugging.a < prev    next >
Encoding:
Text File  |  1994-11-11  |  5.1 KB  |  264 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        ASDebugging.a
  3. ;
  4. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  5. ;                All rights reserved.
  6. ;
  7. ;    Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8. ;
  9. ;    Bugs?:        If you find a problem with this file, send the file and version
  10. ;                information (from above) and the problem description to:
  11. ;
  12. ;                    Internet:    apple.bugs@applelink.apple.com
  13. ;                    AppleLink:    APPLE.BUGS
  14. ;
  15. ;
  16.  
  17.     IF &TYPE('__ASDEBUGGING__') = 'UNDEFINED' THEN
  18. __ASDEBUGGING__ SET 1
  19.  
  20.  
  21.     IF &TYPE('__APPLEEVENTS__') = 'UNDEFINED' THEN
  22.     include 'AppleEvents.a'
  23.     ENDIF
  24. ;        include 'Errors.a'                                            ;
  25. ;            include 'ConditionalMacros.a'                            ;
  26. ;        include 'Types.a'                                            ;
  27. ;        include 'Memory.a'                                            ;
  28. ;            include 'MixedMode.a'                                    ;
  29. ;        include 'OSUtils.a'                                        ;
  30. ;        include 'Events.a'                                            ;
  31. ;            include 'Quickdraw.a'                                    ;
  32. ;                include 'QuickdrawText.a'                            ;
  33. ;        include 'EPPC.a'                                            ;
  34. ;            include 'PPCToolbox.a'                                    ;
  35. ;                include 'AppleTalk.a'                                ;
  36. ;            include 'Processes.a'                                    ;
  37. ;                include 'Files.a'                                    ;
  38. ;        include 'Notification.a'                                    ;
  39.  
  40.     IF &TYPE('__APPLESCRIPT__') = 'UNDEFINED' THEN
  41.     include 'AppleScript.a'
  42.     ENDIF
  43. ;        include 'OSA.a'                                            ;
  44. ;            include 'AEObjects.a'                                    ;
  45. ;            include 'Components.a'                                    ;
  46. ;        include 'TextEdit.a'                                        ;
  47.  
  48. ;     This mode flag can be passed to OSASetProperty or OSASetHandler
  49. ;        and will prevent properties or handlers from being defined in a context
  50. ;        that doesn't already have bindings for them. An error is returned if
  51. ;        a current binding doesn't already exist. 
  52. kOSAModeDontDefine                EQU        $0001
  53.  
  54. ;*************************************************************************
  55. ;    Component Selectors
  56. ;*************************************************************************
  57. kASSelectSetPropertyObsolete    EQU        $1101
  58. kASSelectGetPropertyObsolete    EQU        $1101
  59. kASSelectSetHandlerObsolete        EQU        $1103
  60. kASSelectGetHandlerObsolete        EQU        $1104
  61. kASSelectGetAppTerminologyObsolete EQU        $1105
  62. kASSelectSetProperty            EQU        $1106
  63. kASSelectGetProperty            EQU        $1107
  64. kASSelectSetHandler                EQU        $1108
  65. kASSelectGetHandler                EQU        $1109
  66. kASSelectGetAppTerminology        EQU        $110A
  67. kASSelectGetSysTerminology        EQU        $110B
  68. kASSelectGetPropertyNames        EQU        $110C
  69. kASSelectGetHandlerNames        EQU        $110D
  70.  
  71. ;*************************************************************************
  72. ;    Context Accessors
  73. ;*************************************************************************
  74.     IF GENERATING68K THEN
  75.         Macro
  76.         _OSASetProperty
  77.             dc.w     $2F3C
  78.             dc.w     $0006
  79.             dc.w     $1106
  80.             moveq    #0,d0
  81.             dc.w     $A82A
  82.         EndM
  83.     ELSE
  84.         IMPORT    OSASetProperty
  85.     ENDIF
  86.  
  87.     IF GENERATING68K THEN
  88.         Macro
  89.         _OSAGetProperty
  90.             dc.w     $2F3C
  91.             dc.w     $0006
  92.             dc.w     $1107
  93.             moveq    #0,d0
  94.             dc.w     $A82A
  95.         EndM
  96.     ELSE
  97.         IMPORT    OSAGetProperty
  98.     ENDIF
  99.  
  100.     IF GENERATING68K THEN
  101.         Macro
  102.         _OSAGetPropertyNames
  103.             dc.w     $2F3C
  104.             dc.w     $0002
  105.             dc.w     $110C
  106.             moveq    #0,d0
  107.             dc.w     $A82A
  108.         EndM
  109.     ELSE
  110.         IMPORT    OSAGetPropertyNames
  111.     ENDIF
  112.  
  113.     IF GENERATING68K THEN
  114.         Macro
  115.         _OSASetHandler
  116.             dc.w     $2F3C
  117.             dc.w     $0006
  118.             dc.w     $1108
  119.             moveq    #0,d0
  120.             dc.w     $A82A
  121.         EndM
  122.     ELSE
  123.         IMPORT    OSASetHandler
  124.     ENDIF
  125.  
  126.     IF GENERATING68K THEN
  127.         Macro
  128.         _OSAGetHandler
  129.             dc.w     $2F3C
  130.             dc.w     $0006
  131.             dc.w     $1109
  132.             moveq    #0,d0
  133.             dc.w     $A82A
  134.         EndM
  135.     ELSE
  136.         IMPORT    OSAGetHandler
  137.     ENDIF
  138.  
  139.     IF GENERATING68K THEN
  140.         Macro
  141.         _OSAGetHandlerNames
  142.             dc.w     $2F3C
  143.             dc.w     $0002
  144.             dc.w     $110D
  145.             moveq    #0,d0
  146.             dc.w     $A82A
  147.         EndM
  148.     ELSE
  149.         IMPORT    OSAGetHandlerNames
  150.     ENDIF
  151.  
  152.     IF GENERATING68K THEN
  153.         Macro
  154.         _OSAGetAppTerminology
  155.             dc.w     $2F3C
  156.             dc.w     $0008
  157.             dc.w     $110A
  158.             moveq    #0,d0
  159.             dc.w     $A82A
  160.         EndM
  161.     ELSE
  162.         IMPORT    OSAGetAppTerminology
  163.     ENDIF
  164.  
  165. ; Errors:
  166. ;       errOSASystemError        operation failed
  167. ;    
  168.     IF GENERATING68K THEN
  169.         Macro
  170.         _OSAGetSysTerminology
  171.             dc.w     $2F3C
  172.             dc.w     $0000
  173.             dc.w     $110B
  174.             moveq    #0,d0
  175.             dc.w     $A82A
  176.         EndM
  177.     ELSE
  178.         IMPORT    OSAGetSysTerminology
  179.     ENDIF
  180.  
  181. ; Errors:
  182. ;       errOSASystemError        operation failed
  183. ;    
  184. ; Notes on terminology ID
  185. ;
  186. ;    A terminology ID is derived from script code and language code
  187. ;    as follows;
  188. ;
  189. ;        terminologyID = ((scriptCode & 0x7F) << 8) | (langCode & 0xFF)
  190. ;
  191. ;*************************************************************************
  192. ;    Obsolete versions provided for backward compatibility:
  193. ;
  194.     IF GENERATING68K THEN
  195.         Macro
  196.         _ASSetProperty
  197.             dc.w     $2F3C
  198.             dc.w     $0002
  199.             dc.w     $1101
  200.             moveq    #0,d0
  201.             dc.w     $A82A
  202.         EndM
  203.     ELSE
  204.         IMPORT    ASSetProperty
  205.     ENDIF
  206.  
  207.     IF GENERATING68K THEN
  208.         Macro
  209.         _ASGetProperty
  210.             dc.w     $2F3C
  211.             dc.w     $0002
  212.             dc.w     $1101
  213.             moveq    #0,d0
  214.             dc.w     $A82A
  215.         EndM
  216.     ELSE
  217.         IMPORT    ASGetProperty
  218.     ENDIF
  219.  
  220.     IF GENERATING68K THEN
  221.         Macro
  222.         _ASSetHandler
  223.             dc.w     $2F3C
  224.             dc.w     $0002
  225.             dc.w     $1103
  226.             moveq    #0,d0
  227.             dc.w     $A82A
  228.         EndM
  229.     ELSE
  230.         IMPORT    ASSetHandler
  231.     ENDIF
  232.  
  233.     IF GENERATING68K THEN
  234.         Macro
  235.         _ASGetHandler
  236.             dc.w     $2F3C
  237.             dc.w     $0002
  238.             dc.w     $1104
  239.             moveq    #0,d0
  240.             dc.w     $A82A
  241.         EndM
  242.     ELSE
  243.         IMPORT    ASGetHandler
  244.     ENDIF
  245.  
  246.     IF GENERATING68K THEN
  247.         Macro
  248.         _ASGetAppTerminology
  249.             dc.w     $2F3C
  250.             dc.w     $0004
  251.             dc.w     $1105
  252.             moveq    #0,d0
  253.             dc.w     $A82A
  254.         EndM
  255.     ELSE
  256.         IMPORT    ASGetAppTerminology
  257.     ENDIF
  258.  
  259. ; Errors:
  260. ;        errOSASystemError        operation failed
  261. ;    
  262. ;************************************************************************
  263.     ENDIF ; __ASDEBUGGING__
  264.